Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

0L
Cls
0S
F-Line 15,52,110,52
F-Line 110,52,110,15
F-Line 110,15,15,15
F-Line 15,15,15,52
Text 10,53,"MENU"
Text 25,32,"-NOUVELLE PARTIE"
Text 35,32,"-SAUVEGARDE"
25A
Lbl 1
Text A,25,""
Lbl 2
GetkeyZ
Z=0Goto 2
If 37=Z And A=25:Then Text A,20," "
A+10A
Goto 1
IfEnd
If 28=Z And A=35:Then Text A,20," "
A-10A
Goto 1
IfEnd
31=ZGoto 3
Goto 2
Lbl 3
If A=25:Then ClrText
Locate 5,2,"PERSONNAGE:"
Locate 5,3,""
Locate 2,4,"-CLAD........[C]"
Locate 2,5,"-YOUFIE......[Y]"
Locate 4,7,"ANNULER:[DEL]"
Lbl A
GetkeyZ
Z=0Goto A
If Z=44:Then PlotOff 1,1
Goto 1
IfEnd
If Z=56:Then 1r
100Q
Return
IfEnd
If Z=32:Then 2r
0Q
Return
IfEnd
Goto A
IfEnd
If A=35:Then ClrText
"DANS QUELLE MEMOIRE SE TROUVE VOTRE PARTIE? (1/2) ANNULER:[DEL]"
Lbl Z
GetkeyZ
Z=0Goto Z
0r
If Z=72:Then 1S
Return
IfEnd
If Z=62:Then 2S
Return
IfEnd
If Z=44:Then PlotOff 1,1
Goto 1
IfEnd
Goto Z
IfEnd